home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00084_Play Music.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  1.2 KB  |  57 lines
  1. property pSpr, pPlayRollMember, pPlayMember, pMuteMember, pMuteRollMember, pOldSoundVolume
  2. global gMuted, gMusicChan, gMuteAllSounds
  3.  
  4. on beginSprite me
  5.   pSpr = sprite(me.spriteNum)
  6.   pPlayMember = pSpr.member
  7.   pPlayRollMember = nextMember(pPlayMember)
  8.   pMuteMember = nextMember(pPlayMember, 2)
  9.   pMuteRollMember = nextMember(pPlayMember, 3)
  10.   pOldSoundVolume = the volume of sound gMusicChan
  11.   mouseLeave(me)
  12. end
  13.  
  14. on endSprite
  15.   if gMuted then
  16.     set the volume of sound gMusicChan to fixVolume(pOldSoundVolume)
  17.   end if
  18. end
  19.  
  20. on mouseEnter me
  21.   if gMuted then
  22.     pSpr.member = pPlayRollMember
  23.   else
  24.     pSpr.member = pMuteRollMember
  25.   end if
  26. end
  27.  
  28. on mouseLeave me
  29.   if gMuted then
  30.     pSpr.member = pPlayMember
  31.   else
  32.     pSpr.member = pMuteMember
  33.   end if
  34. end
  35.  
  36. on mouseUp me
  37.   global gJukeVolumeSlider
  38.   gMuted = not gMuted
  39.   if gMuted then
  40.     pOldSoundVolume = the volume of sound gMusicChan
  41.     set the volume of sound gMusicChan to fixVolume(0)
  42.   else
  43.     if pOldSoundVolume = 0 then
  44.       pOldSoundVolume = 128
  45.     end if
  46.     gMuteAllSounds = 0
  47.     refreshMute()
  48.     set the volume of sound gMusicChan to fixVolume(pOldSoundVolume)
  49.     sendSprite(gJukeVolumeSlider, #mUpdateVolumeSlider)
  50.   end if
  51.   mouseEnter(me)
  52. end
  53.  
  54. on mouseDown
  55.   clickSound()
  56. end
  57.